home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].po / LITTLE.DOGGY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  623b  |  2 lines
  1. 6  GR : COLOR= 15: FOR I = 16 TO 19: VLIN 27,30 AT I: NEXT : VLIN 31,33 AT 16: VLIN 31,33 AT 19: PLOT 17,33: PLOT 20,33: HLIN 14,15 AT 27: FOR I = 21 TO 26: HLIN 19,21 AT I: NEXT : VLIN 23,26 AT 22: VLIN 23,26 AT 23: COLOR= 8: VLIN 22,28 AT 19: PLOT 23,23: COLOR= 15: VLIN 24,26 AT 16: COLOR= 9: PLOT 21,22
  2. 7  FOR I = 1 TO 20:X = 49200:P =  PEEK(X): COLOR= 0: HLIN 14,15 AT 27: COLOR= 15: VLIN 24,27 AT 16: FOR S = 1 TO 50: NEXT : COLOR= 0: VLIN 24,26 AT 16: COLOR= 15: HLIN 14,15 AT 27: FOR S = 1 TO 50: NEXT :P =  PEEK(X): NEXT : FOR L = 1 TO 50: COLOR= 1: HLIN 23,24 AT 25:P =  PEEK(X): COLOR= 0: HLIN 23,24 AT 25: NEXT